﻿module LexingStub


open Microsoft.FSharp.Text.Lexing

type lexbuf = LexBuffer<char>

let from_string = LexBuffer<_>.FromString
let from_channel = LexBuffer<_>.FromTextReader

let lexeme l = LexBuffer<_>.LexemeString l
let lexeme_char (l:LexBuffer<_>) = l.LexemeChar
let lexeme_start (l:LexBuffer<_>) = l.StartPos.AbsoluteOffset

